home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / batch / DBAT110.ARJ / LBAR4.BAT < prev    next >
DOS Batch File  |  1992-01-10  |  3KB  |  113 lines
  1. @echo off
  2. :: *** dBAT Light Bar Menu Demo #4 ***
  3. :: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  4. :START
  5. ::c:
  6. ::cd \
  7.  
  8. DBAT %0
  9. goto ENDdBAT
  10.  
  11. Note: This dBAT example sets the DOS errorlevel based on the selection.
  12.       A major advantage of this type of menu system is that TSRs such
  13.       as EMULATION programs can be loaded from the menu.
  14.  
  15. Note: If running this batch file from another directory, you must either: 
  16.       1. pass the batch file's full path to dBAT, or
  17.       2. change (in the batch file) to the directory that contains the
  18.          batch file before the line that runs dBAT
  19.          (because dBAT doesn't search the PATH for the batch file to read it)
  20.  
  21. PROC dBAT
  22.  
  23. SET CURSOR OFF
  24. SET COLOR TO 31
  25. CLEAR
  26. @ 02,10 TO 04,69 DOUBLE
  27. SET COLOR TO 79
  28. @ 03,12 ?? "               ACME Marketing - Main Menu               "
  29.  
  30. SET COLOR TO 7                  && shadow
  31. @ 07,27 CLEAR TO 18,55
  32.  
  33. SET COLOR TO 112
  34. @ 24,00 CLEAR TO 27,79
  35. @ 24,01 ?? "+Enter or 1st Letter = Select Option   Esc=Cancel Menu"
  36.  
  37. @ 06,25 TO 17,53 DOUBLE         && box
  38. @ 07,26 CLEAR TO 16,52
  39. SET COLOR TO 112
  40. SET ICOLOR TO 15
  41. *@ 05,00 ?? "012345678901234567890123456789012345678--876543210987654321098765432109876543210"
  42. @ 07,26 PROMPT " S = Sign-On AS/400        "
  43. @ 08,26 PROMPT " P = PC-Support            "
  44. @ 10,26 PROMPT " 1 = Transfer AS/400 to PC "
  45. @ 11,26 PROMPT " 2 = Transfer PC to AS/400 "
  46. @ 13,26 PROMPT " F = File Manager          "
  47. @ 14,26 PROMPT " W = Word Processor        "
  48. @ 16,26 PROMPT " Z = Park Drive            "
  49. MENU TO
  50. QUIT
  51. *** uncomment the following line for centering...
  52. :ENDdBAT
  53.  
  54. cls
  55. if errorlevel 8 goto EXIT        Rem Esc
  56. if errorlevel 7 goto PARK
  57. if errorlevel 6 goto PW
  58. if errorlevel 5 goto FM
  59. if errorlevel 4 goto PC2AS4
  60. if errorlevel 3 goto AS42PC
  61. if errorlevel 2 goto PCS
  62. if errorlevel 1 goto AS400
  63. goto EXIT
  64.  
  65. :AS400
  66. :: c:
  67. :: cd \as400
  68. :: AS400
  69. echo !!! You selected Sign-On AS/400 !!!
  70. pause
  71. :: cd \
  72. goto START
  73.  
  74. :PCS
  75. :: c:
  76. :: cd \PCS
  77. :: Note: only a batch file menu system can load a TSR from the menu
  78. :: Note: must use CALL when running a batch file to return control to here
  79. :: call LINK36
  80. echo !!! You selected PC Support !!!
  81. pause
  82. :: cd \
  83. goto START
  84.  
  85. :AS42PC
  86. echo !!! You selected Transfer AS/400 to PC !!!
  87. pause
  88. goto START
  89.  
  90. :PC2AS4
  91. echo !!! You selected Transfer PC to AS/400 !!!
  92. pause
  93. goto START
  94.  
  95. :FM
  96. echo !!! You selected File Manager !!!
  97. pause
  98. goto START
  99.  
  100. :PW
  101. echo !!! You selected Professional Write !!!
  102. pause
  103. goto START
  104.  
  105. :PARK
  106. cls
  107. PARK
  108. goto END
  109.  
  110. :EXIT
  111. cls
  112. :END
  113.